home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / cocktail / reuse.lha / reuse / m2c / Arguments.c next >
C/C++ Source or Header  |  1992-08-18  |  740b  |  44 lines
  1. /* $Id: Arguments.c,v 1.3 1991/11/21 16:57:59 grosch rel grosch $ */
  2.  
  3. #include "SYSTEM_.h"
  4.  
  5. #ifndef DEFINITION_Arguments
  6. #include "Arguments.h"
  7. #endif
  8.  
  9. void BEGIN_Arguments ()
  10. {
  11.   static BOOLEAN has_been_called = FALSE;
  12.  
  13.   if (! has_been_called) {
  14.     has_been_called = TRUE;
  15.   }
  16. }
  17.  
  18. /*
  19.  *    Implementation of procedures GetArgs and GetEnv
  20.  *    from FOREIGN module Arguments
  21.  */
  22.  
  23. void GetArgs
  24. # ifdef __STDC__
  25. (SHORTCARD *argc, Arguments_ArgTable *argv)
  26. # else
  27. (argc, argv) SHORTCARD *argc; Arguments_ArgTable *argv;
  28. # endif
  29. {
  30.   *argc = SYSTEM_argc;
  31.   *argv = (Arguments_ArgTable) SYSTEM_argv;
  32. }
  33.  
  34. void GetEnv
  35. # ifdef __STDC__
  36. (Arguments_ArgTable *env)
  37. # else
  38. (env)
  39. Arguments_ArgTable *env;
  40. # endif
  41. {
  42.   *env = (Arguments_ArgTable) SYSTEM_envp;
  43. }
  44.